VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BCliente"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"BDatosPersonales"
Attribute VB_Ext_KEY = "Member1" ,"BEmpresa"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private mvarnCodigo As Integer 'local copy
'local variable(s) to hold property value(s)
Private mvarbDatosPersonales As BDatosPersonales 'local copy
Private mvarbEmpresa As BEmpresa 'local copy
Friend Property Set BEmpresa(ByVal vData As BEmpresa)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bEmpresa = Form1
    Set mvarbEmpresa = vData
End Property


Friend Property Get BEmpresa() As BEmpresa
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bEmpresa
    Set BEmpresa = mvarbEmpresa
End Property



Friend Property Set BDatosPersonales(ByVal vData As BDatosPersonales)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bDatosPersonales = Form1
    Set mvarbDatosPersonales = vData
End Property


Friend Property Get BDatosPersonales() As BDatosPersonales
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bDatosPersonales
    Set BDatosPersonales = mvarbDatosPersonales
End Property




Friend Property Let nCodigo(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nCodigo = 5
    mvarnCodigo = vData
End Property


Friend Property Get nCodigo() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nCodigo
    nCodigo = mvarnCodigo
End Property



